Public Class FormPromocion
    Private WithEvents efectos As New ClaseGolosinaVisual
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPromoAgregarTodo.Click

    End Sub

    Private Sub Promocion_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        'efectos.VentanaWowClose()
        efectos = Nothing
        Me.Dispose()
    End Sub

    Private Sub FormPromocion_HelpRequested(ByVal sender As Object, ByVal hlpevent As System.Windows.Forms.HelpEventArgs) Handles Me.HelpRequested
        HPPromocion.SetHelpNavigator(Me, HelpNavigator.TopicId)
        HPPromocion.SetHelpKeyword(Me, "26")
    End Sub

    Private Sub Promocion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        HPPromocion.HelpNamespace = My.Settings.cadenaAyuda
        'efectos = New ClaseGolosinaVisual
        efectos.FadeIn(Me, 485, 362)

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        efectos.VentanaWowClose()
    End Sub

    Private Sub efectos_formClosed() Handles efectos.formClosed
        Me.Dispose()
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        efectos.FadeOut(Me)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        efectos.FadeOut(Me)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        efectos.FadeOut(Me)
    End Sub
End Class